Imports System.Data.SqlClient
Imports System.Xml
Public Class dCondicion

    Public Function Existe(ByVal CodigoCondicion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCondicion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCondicion", CodigoCondicion))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblCondicionBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal CodigoCondicion As String, ByVal Descripcion As String, _
                             ByVal Numero As Integer, ByVal Tipo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCondicion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCondicion", CodigoCondicion))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        If Numero <> 0 Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If Tipo <> "" Then
            Parametros.Add(New SqlParameter("@pETipo", Tipo))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblCondicionALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoCondicion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCondicion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCondicion", CodigoCondicion))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblCondicionELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoCondicion As String, ByVal Descripcion As String, _
                              ByVal Numero As Integer, ByVal Tipo As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCondicion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCondicion", CodigoCondicion))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        If Numero <> 0 Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If Tipo <> "" Then
            Parametros.Add(New SqlParameter("@pETipo", Tipo))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblCondicionMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoCondicion As Integer, ByVal Descripcion As String, _
                                   ByVal Numero As Integer, ByVal Tipo As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCondicion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCondicion", CodigoCondicion))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        If Numero <> 0 Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If Tipo <> "" Then
            Parametros.Add(New SqlParameter("@pETipo", Tipo))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblCondicionBUSCARFILTRADO", Parametros)
    End Function

    Public Function ListarNombres(ByVal CodigoCondicion As Integer, ByVal Descripcion As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCondicion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCondicion", CodigoCondicion))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If

        Return CapaDeDatos.dConexion.Consultar("STORE_TblCondicionBUSCARFILTRADO", Parametros)
    End Function
End Class
